home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / t / harness next >
Text File  |  1998-05-14  |  817b  |  34 lines
  1. #!./perl
  2.  
  3. # We suppose that perl _mostly_ works at this moment, so may use
  4. # sophisticated testing.
  5.  
  6. BEGIN {
  7.     chdir 't' if -d 't';
  8.     @INC = '../lib';
  9.     $ENV{PERL5LIB} = '../lib';    # so children will see it too
  10. }
  11. use lib '../lib';
  12.  
  13. use Test::Harness;
  14.  
  15. $Test::Harness::switches = "";    # Too much noise otherwise
  16. $Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
  17.  
  18. @tests = @ARGV;
  19. @tests = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t> unless @tests;
  20.  
  21. Test::Harness::runtests @tests;
  22.  
  23. %infinite = ('comp/require.t', 1, 'op/bop.t', 1, 'lib/hostname.t', 1 );
  24.  
  25. @tests = grep (!$infinite{$_}, @tests);
  26.  
  27. if (-e "../testcompile") 
  28. { 
  29.     print "The tests ", join(' ', keys(%infinite)), 
  30.                             " generate infinite loops! Skipping!\n";
  31.  
  32.     $ENV{'COMPILE_TEST'} = 1; Test::Harness::runtests @tests; 
  33. }
  34.